("You should select where you want to install %s. " @app-name)
("A directory named %s will be created there.\n\n" @app-name)
@askdir-help
)
(default @default-dest)
)
)
(set #mode
(askchoice
(prompt "How would you like to set up the paths for your Tickle85 installation?")
(help
"You should select how you want the installation to handle your paths. Here is some guidance "
"to your selection.\n\n"
"Option 1 is recommended. It will keep your paths and your user-startup clean, and allows you to "
"place frequently used commands into the path. (You can choose which commands and which directory). "
"The other files will be placed into the Tickle85 directory\n\n"
"Option 2 will place all files into the Tickle85 directory. It will keep your system-installation clean, but will modify your user-startup "
"in order to add a directory to your path.\n\n"
"Option 3 simply copies all files into the Tickle85 directory, nothing will happen to your "
"paths, your s:user-startup, or your system directories. It's clean, and easy to delete, "
"but you can't access Tickle85 from anywhere else in the system."
)
(choices
"1. Place the most frequently used files into the path."
"p2. Add the Tickle85 directory to the path."
"3. Stay away from my paths! Put everything in the Tickle85 directory."
)
(default 0)
)
)
(if (= #mode 0)
(set #pathfiles
(askoptions
(prompt
"Which files would you like to place in your path?\n"
"See help for details on each file."
)
(help
"Send85 is used to send variables to the TI-85, very frequently used.\n\n"
"Recv85 is used to receive variables from the TI-85, also frequently used.\n\n"
"TICableTest is used to test the link-cable, only used once, if at all."
)
(choices
"Send85 (recommended)"
"Recv85 (recommended)"
"TICableTest"
)
(default 3)
)
)
(set #pathfiles 0)
)
(if (> #pathfiles 0)
(set #pathdir
(askdir
(disk)
(prompt "Where in the path would you like the frequently used commands to be placed?")
(help
"Normally, you would want to place the files in 'C:' with the other commands, "
"but if you have other plans, you may place them where you please."
@askdir-help
)
(default "C:")
)
)
)
(askbool
(prompt
"You have made these choices.\n\n"
("The destination directory is: \"%s\"\n\n" (tackon @default-dest @app-name))
(if (> #pathfiles 0) ("However, these files: "))
(if (BITAND 1 #pathfiles) ("Send85, "))
(if (BITAND 2 #pathfiles) ("Recv85, "))
(if (BITAND 4 #pathfiles) ("TICableTest "))
(if (> #pathfiles 0) ("will be copied to '%s'.\n\n" #pathdir))
(if (= #mode 1) ("The path to \"%s\" will be added to your user-startup.\n\n" (tackon @default-dest @app-name)))
"Are the choices correct?"
)
(help
"You are presented with the choices you made in earlier questions, if you are satisfied with them, click on \"Yes\", and the installation will continue.\n\n"
"If you wish to alter your choices, click on \"No\"\n\n"
)
(default 1)
)
)
;********
; MAIN
;********
(if (< (/ (getversion) 65536) 37) (abort ("%s requires at least AmigaOS v2.0." @app-name)))
(welcome ("Welcome to the %s installation utility!" @app-name))
; Choose where&what to install
; =============================
(set @default-dest "Work:")
(if (> @user-level 0)
(message
("You will now be asked a few questions about how you want to install %s.\n\n" @app-name)
"Your choices will be displayed before any actions are taken, so that you can correct any errors made.")
